home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 2 / BBS in a box - Trilogy II.iso / Files / Hyper / G / GetA⁄UXVersion XFCN 1.0 / GetA_UXVersion XFCN 1.0 / card_2839.txt < prev    next >
Encoding:
Text File  |  1992-05-02  |  2.5 KB  |  101 lines
  1. -- card: 2839 from stack: in.0
  2. -- bmap block id: 4303
  3. -- flags: 0000
  4. -- background id: 2788
  5. -- name: 
  6.  
  7.  
  8. -- part 9 (field)
  9. -- low flags: 05
  10. -- high flags: 0000
  11. -- rect: left=1 top=86 right=309 bottom=511
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 4
  16. -- text size: 9
  17. -- style flags: 0
  18. -- line height: 12
  19. -- part name: 
  20.  
  21.  
  22. -- part 10 (button)
  23. -- low flags: 00
  24. -- high flags: A002
  25. -- rect: left=2 top=54 right=76 bottom=145
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 1
  29. -- font id: 0
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: GetAUXVersion
  34. ----- HyperTalk script -----
  35. on mouseUp
  36.   Answer "A/UX Version is" && getauxversion() & "."
  37. end mouseUp
  38.  
  39.  
  40. -- part 16 (button)
  41. -- low flags: 00
  42. -- high flags: 2000
  43. -- rect: left=473 top=51 right=84 bottom=511
  44. -- title width / last selected line: 0
  45. -- icon id / first selected line: 15664 / 15664
  46. -- text alignment: 1
  47. -- font id: 0
  48. -- text size: 12
  49. -- style flags: 0
  50. -- line height: 16
  51. -- part name: Home
  52. ----- HyperTalk script -----
  53. on mouseUp
  54.   visual dissolve to black
  55.   visual dissolve to white
  56.   visual dissolve to black
  57.   visual dissolve
  58.   go home
  59. end mouseUp
  60.  
  61.  
  62.  
  63. -- part 17 (button)
  64. -- low flags: 00
  65. -- high flags: 4000
  66. -- rect: left=475 top=22 right=50 bottom=512
  67. -- title width / last selected line: 0
  68. -- icon id / first selected line: 13510 / 13510
  69. -- text alignment: 1
  70. -- font id: 0
  71. -- text size: 12
  72. -- style flags: 0
  73. -- line height: 16
  74. -- part name: Jeff
  75. ----- HyperTalk script -----
  76. on mouseEnter
  77.   set hilite of target to true
  78. end mouseEnter
  79.  
  80. on mouseLeave
  81.   set hilite of target to false
  82. end mouseLeave
  83.  
  84.  
  85.  
  86. -- part contents for card part 9
  87. ----- text -----
  88. GetAUXVersion takes no parameters. It returns the version of A/UX if it is currently executing. If A/UX is not executing the XFCN returns unknown. Click on and/or examine the script of the button above to see how it works!
  89.  
  90. A small shareware fee of $5 is requested if you use this external for anything besides personal use.
  91.  
  92. If you have comments, questions, or suggestions, you can contact me in any of the following ways:
  93.  
  94.      America Online: J5rson                  AppleLink: ALL.AMERICAN
  95.      CompuServe:     76675,1772              GEnie:     J5rson
  96.      Internet:       j5rson@aol.com          Telephone: 616.949.0346
  97.  
  98.      U. S. Mail:           Jeff Iverson
  99.                            3841 Whispering Way Dr. SE #101
  100.                            Grand Rapids MI  49546-5849
  101.